00100		SUBROUTINE PLOTS(K)
00200		DATA KODE/6/,KOMD/0/
00300		IMPLICIT INTEGER(F)
00400		N='F8'
00500		M='PLT'
00600		CALL INFR80(0,0,0)
00700	1	CALL OUTCMD(FR80CD("004,0))
00800	C  START JOB FOR FR80
00900		GO TO 2
01000	3	CALL OUTCMD(FR80EC(KODE,KOMD))
01100	C  TO SET SPOT SIZE, ETC.
01200	2	END
01300	
01400		SUBROUTINE PLOT(J,K,L)
01500		CALL APLOT(J,K,L)
01600		END
01700	
01800		SUBROUTINE EXITB
01900		IMPLICIT INTEGER(F)
02000		CALL OUTCMD(FR80CD("001,0))
02100	C  END JOB FOR FR80
02200		CALL RLFR80
02300		CALL EXIT
02400		END